home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / FROMUTS / UNIXLIB37B / src / c / strichr < prev    next >
Text File  |  1991-09-23  |  934b  |  59 lines
  1. #ifdef __STDC__
  2. static char sccs_id[] = "@(#) strichr.c 1.0 "__DATE__" HJR";
  3. #else
  4. static char sccs_id[] = "@(#) strichr.c 1.0 23/9/91 HJR";
  5. #endif
  6.  
  7. /* strichr.c (c) Copyright 1990 H.Rogers */
  8.  
  9. #ifndef __STDC__
  10. #include "sys/types.h"
  11. #endif
  12. #include <string.h>
  13. #include <ctype.h>
  14.  
  15. #ifdef __STDC__
  16. char *strichr(register const char *s,register int c)
  17. #else
  18. char *strichr(s,c)
  19. register const char *s;
  20. register int c;
  21. #endif
  22. {
  23. register int i;
  24.  
  25. c = isupper(c) ? _tolower(c) : c;
  26.  
  27. while (i = *s++)
  28.   {
  29.   i = isupper(i) ? _tolower(i) : i;
  30.   if (i == c) return((char *)--s);
  31.   }
  32.  
  33. return(0);
  34. }
  35.  
  36. #ifdef __STDC__
  37. char *strrichr(register const char *s,register int c)
  38. #else
  39. char *strrichr(s,c)
  40. register const char *s;
  41. register int c;
  42. #endif
  43. {
  44. register int i;
  45. register const char *_s;
  46.  
  47. c = isupper(c) ? _tolower(c) : c;
  48.  
  49. _s = 0; do
  50.   {
  51.   i = *s;
  52.   i = isupper(i) ? _tolower(i) : i;
  53.   if (i == c) _s = s;
  54.   }
  55. while (s++,i);
  56.  
  57. return((char *)_s);
  58. }
  59.